home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 252 / gemsrc / disk.def < prev    next >
Text File  |  1988-02-13  |  664b  |  21 lines
  1. DEFINITION MODULE Disk;
  2.  
  3.  
  4.    PROCEDURE CheckStatus ( Drive : (* IN *) CARDINAL );
  5.  
  6.       (* See if the media has changed.  If so, the inform the system *)
  7.       (* that the disk has been changed.  Drive specifies the drive  *)
  8.       (* to be checked ( 1 => A:, 2 => B:, ... )                     *)
  9.  
  10.  
  11.    PROCEDURE SpaceAvailable (
  12.       Drive       : (* IN *) CARDINAL;
  13.       BytesNeeded : (* IN *) LONGCARD ) : BOOLEAN;
  14.  
  15.       (* Return TRUE if enough free space exists on the disk to  *)
  16.       (* satisfy the number of bytes needed, or FALSE otherwise. *) 
  17.       (* Drive specifies the drive to be checked.                *)
  18.      
  19.  
  20. END Disk.
  21.